B 13 


i cee eet eel al en a Ne Oe Oe Oe oe 
et ee eal eel eet ace a ee ed oe oe oa oe oe coe ea 
ee eel cel eel eel ae oN ee ce oe ce oe oe ee 


— os 
—— 
— 
SG Gd a ag as Gs ns Os OG OG Od Og Og Beg Og ng Og 
SF Ek ad ng ag ng a a nd Og nd Og Og Og Og Og Og Og eg 
FS OS OS ak Ok a ak Od nd Od nd Od nd Od Od Od Od Og Og 


— ee 
ee 
-——— 
OS Ok Ok nk Od Od Od Od Od Od Od Od Od Od Od Od Od Og Og On 
SS kk Ok kd Od Od Ok Od Od Od On Od Od Od Od Od og eg 
SS 8 dk OS OS OS Od Od OE Od Od Od OS Bd Od Od Og Og Og 
— 
“es 
— os 


me -— 
ce or 
w 
ceaoncaoaocannana 
aeoaocoaoaanaa 
w aa Oo 
aa Qa 
aa aa 
aa aa 
aa aa 
ao aoa 
favovoVololololoyvoyvololrororo) 
Soooaoanoaoaanaaaa 
22222222 222222 
22 


“mn WMMnnwm 
con ioen a nn nn “nw 
ee kame ww “wn nn 
ee at eg ad at a ae a ag et ot nw “ww wn 
ny Oy ad Oe Og et Ee eg mw ww nn 
oho se nn nn “nn 
cae Conia mn nn ww 
MWMunnwn wn 
MnmMmn nn 
2222222222222 
2222222222222 
et Conien 
$s os ee 
3s dd ad Og Od nd Od Ong Dd Ong Ong Og Dd 
OS at ak 8 Od Ot Od Og Od Od Os Os Oe 
zz “—— amend 
zzezzeeezer2rre oe are. 
3555S5SEESEEEE= 
a 
ad ad 
et ete a4 
eee coat a4 
a et ee at a a at ne —_ 
ns 9 0 Oe td te nt ot a a4 
rel Ckemd a4 
ee Cem odo 
Sao d III I III I IS 
a ed ed ed ed od od od I) A I I 


FI LE**1De*ININDI 


4.0- Page 1. 
38: NIT-SRCJININD1.B32:1-9 (1) 
MODULE ININD1 ( 

LANGUAGE. (BL15§32) 
IDENT = *V04=000 | 
BEGIN | 


' 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'* ONLY yy ACCORDANCE A THE TERMS OF SUCH LICENSE ~~ a aL 3 


tt INCLUSION OF THE ABOVE E ER 
't COPIES THEREOF MAY NOT Bf PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
t® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


+s 
e 
® 
Y 
Y 
5 
® 
® 
® 
® 
ie TRANSFERRED. , 
® 
& 
® 
® 
® 
ee 
w 
® 
® 
® 


4 
R 


On 


polololeo) 


oOooooco 


Sses 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


iw CORPORATION. 


ie DIGITAL ASSUMES NO RESPONSIB 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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005 : FACILITY: INIT Utility Structure Level 1 
003 : ABSTRACT: 
003 i This module contains the routines that initialize the contents 
003 ' of a disk's index file for structure level 1: boot and home blocks, 
003 ! bitmap, and the initial file headers. 
40 pyre ! 
$3 Boe } ENVIRONMENT: 
t 004 i STARLET operating system, including privileged system services 
44 044 ' and internal exec routines. 
45 045 ! 
46 004 ten 
47 004 ! 
48 0048 ! 
$3 rb : AUTHOR: Andrew C. Goldstein, CREATION DATE: 14-Nov-1977 10:16 
5 9051 i MODIFIED BY: 
2 ° | 
a $38 : v03-004 MCNO140 Maria del C. Nasr 30-Nov-1983 
2 bee Define LABEL_STRING and USER_NAME as bblock descr‘ptors. 
56 056 1! V03-003 ACG0329 Andrey ¢ Goldstein, 12-Apr-1983 16:30 
57 0057 1 | Fold long IC's into (377, | 


| 
REJININD1.B32;1° 9° (15 


iSseo-198e 01:46:08 yanedt eLsee32 v4 0-74 


an 


; 1! 

3 38 §38 1! v03-002 LMP0021 Mark Pilan S-Apr-1982 15:48 
3 ¢ 081 } } Add support for bbse4 serecture version 2. 

: 6 3 1! v02=004 LMP0001 L. Mark Pilant 4-Nov-1981 16:35 
; 6 065 1! Create a multi-header index file if the number of headers 
3 43 bee : to be created cannot be contained in a single header 

: 6 D066 1 i v02-003 ACGO191 Andrew C. Goldstein, 25-Feb-1981 18:18 
: es Be : Fix size of file header fill 

; 9 Oe 1 / v02-002 ACGO185 Andrew C. Goldstein, 33-Feb-1981 21:02 
; ry By : } Add serial number to home block 

: 7 007¢ 1 i v0O101 acGo075 Andrew C. Goldstein, 22-Oct-1979 10:00 
3 fF th : } csteaet obsolete characteristics bits 

2 oe 0075 1! v0100 ACG00001 Andrew C. Goldste 10=0cte 1978 21:27 

: 76 0076 1! Previous revision history moved to PINT. SREDINGTS REV 

3 77 007 1 fee 

es: $079 | 

: 80 9080 ; LIBRARY 'SYSSLIBRARY:L1B,i32"; 

: 8 0372 1 REQUIRE "LIBD$:CVMSLIB.OBJJINITMSG.B32'; 

ata 8 

>: 85 0506 1 FORWARD ROUTINE 

8 86 0507 1 INIT_INDEX1 : NOVALUE, ! main index file initialization 

: 87 0508 1 MAKE_POINTER; ' construct retrieval pointer 


REQUIRE 'SRC$:INIDEF 832°; 
| 
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32. 
R:C1 


5 
hese -1984 01:46: VAX-11 Bliss- 4.0-742 P 4 
12-9 08- 1 3b 95:99:08 DISKSVMSMASTER:[ NIT. SRCJININD1.B32:1 > (2) 


$ 1 66 1 ; 
; 14 67 1 BIND : 
; 138 28 1 FORMAT, NAME = UPLIT BYTE ("DECFILEIIA '); ° 
3; «(146 8 1 : 
: 131 yi | 
3; 1 § 276 1! Initial file header. The core image file is used since it is the first | : 
; 3 575 1 ! one written. ‘ 
: «156 574 1! : 
3 135 0575 1 !- : 
3 136 278 1 . 
3 4 2s 1 BIND ‘ 
: 158 a 1 INITIAL_HEADER = UPLIT ( ‘ 
3 339 0579 1 ! HEADER area ‘ 
; 160 0580 1 BYTE (FHISC_LENGTH / 2) ' ident area offset ; 
: 161 09 -% BYTE ((FHISC_LENGTH + F{1$C_LENGTH)/2), map area offset : 
3 Hb 5 ; 1 WORD (5, 5), ' file ID : 
s 16 05835 1 BYTE (1, 1), ' structure version and level : 
> 164 0584 1 WORD (05, i file owner UIC : 
; 165 0585 1 WORD (0), ! file protection ; 
: 166 0586 1 WORD (0), ! file characteristics ‘ 
; 167 0587 1 BYTE (0), ! record type ; 
; 168 0588 1 BYTE (0), ! no record attributes ; 
; 169 0589 1 WORD (0). ! record siz : 
: 170 0590 1 LONG (0, 0), ' HIBLK and EFBLK ; 
> 171 0591 1 WORD (05, i EOF byte offset 3 
3 Ive 0296 1 BYTE (0, 0), ' bucket size & VFC Length : 
; 17 0593 1 WORD (05, i maximum record Length | ; 
: 174 0594 1 WORD (0), ! default extend size : 
3; 175 0595 1 WORD (0, 0, 0, 0. 0, 0), ' unused record attributes | : 
: 176 0596 (1 ; 
3; 177 0597 1 ' IDENT area | : 
; 178 0598 #1 WORD (ZRAD5SO_11°CORIMG SYS", 1), ' file name, type and version : 
; 179 0599 1 WORD (1) ! revision number ; 
: 180 0600 1 BYTE (REP 34 OF (0)), i dates 3 
; «(181 0601 1 . 
$ 136 0602 1 ! MAP area : 
; Ww 0603 1 BYTE (0), ! file segment number ; 
3 «(184 pone 1 BYTE (0), ' extension RVN : 
: «4185 605 1 WORD (0, 9. ' extension file ID ; 
; 186 0606 1 BYTE (1, 3), ! map pointer count & LBN size : 
; «187 0607 1 BYTE (0) ! map words in use ‘ 
; 188 0608 1 BYTE ((542-2-FHISC_LENGTH=F 11$C_LENGTH-FM1$C_LENGTH)/2) ; 
: 189 609 1 ! map words available ‘ 
; 190 610 1 : 
; 191 0611 1 ); ; 
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GLOBAL ROUTINE INIT_INDEX1 : NOVALUE = 


lee 


i 
FUNCTIONAL DESCRIPTION: 


This routine initializes the contents of the disk's index 
It writes a dummy boot block, the home blocks, index fil 


i 

i 

and the initial headers. 
i CALLING SEQUENCE: 

INIT_INDEX1 () 

i INPUT PARAMETERS: 

NONE 

i IMPLICIT INPUTS: 

: parser data base 
ailocation table in INIDSK 
i QUTPUT PARAMETERS: 

: NONE 

i IMPLICIT OUTPUTS: 

NONE 

i ROUTINE VALUE: 

NONE 

he 


SIDE EFFECTS: 
index file blocks written 


BEGIN 
BUILTIN 
ROT 


LOCAL 


DATE_TIME : VECTOR (13, BYTE 


LBN, 

MAP_ COUNT, 
MAP"LBN, 
IDXFILE_EXT_CNT, 
IDXF ILE~EXT-LBN, 


EXTENSION FID, 
MAP_FULL_STATUS; 


LITERAL 
IDXFILE_EXT_FID = 6; 


EXTERNAL 
INIT OPTIONS : BITVECTOR, 
BUFFER : BBLOCK, 


U 
VOLUME _SIZE, 


“Se0-1986 O}:46:08 YC 


f 
eb 


J], ! buffer for current date/time 


current LBN 
count field of map pointer 


start LBN of current map pointer. 
remaining count for index file size 
starting block for remaining count 
file number for extension headers 


map area full indicator 


first index file extension header file number 


command options 
! er 
' size of volume rounded to next cluster 


2 
JININD1.B32;1) 9 (3 
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ININD1 16-Sep-1984 VAX-11 Bliss-32 V4.0-742 Page 6. 

16 sep-19 93:98:98 DESKSUMGMASTERCCINIT <SRCDININDI.B32:1°%" (36. 
; 0 $69 PROTECTION, ' yolume protection 
$ 1 6 y FILE PROT, ' default file protection 
; é 67 ' maximum number of files on volume 
8 ore fc, ' volume owner 
; 4 67 EXTENSION, ' default file extend 
; 5 674 ! default window size 
; 256 675 stp, i default directory LRU Limit 
; 257 $078 SERIAL_NUMBER, ' pack serial number | 
: 258 67 BADBLOCK_TOTAL ' count of bad blocks on volume 
; 259 0678 ALLOC_TABLE_CNT : VECTOR, i allocation count table 
; 260 067 ALLOC_TABLE_LBN : vebioee ' allccation LBN table 
; 261 b630 BADBLOCK_CNT : VECTO ! bad block agent table 
3 o¢ 681 ADBLOCK-LBN : VECTOR. ' bad LBN t 
; 26 poss BOOTBLOCR_CNT, ' boot block cluster block count 
; 264 06 BOOTBLOCK_LBN ' boot block cluster LBN 
; 265 0684 HOMEBLOCKT_CNT, ' home block 1 cluster block count 
; 266 0685 HOMEBLOCK1_LBN, ' home block 1 cluster LBN 
; 267 0686 IDXFILE_CNT, ! initial index file count 
; 268 0687 IDXFILE_LBN, ' initial index file L 
; 269 0688 TMAP_CNT, i storage bitmap block cael 
; 270 0689 BITMAP _LBN, : nFD tock bitmap LBN 
; $7] 0690 FD_CNT, ! MFD block count 
3 Lf; 0691 FD-LBN ' MFD 
s ar 069 LABEL_STRING : BBLOCK POstsc_ S_ BUNJC” " string descriptor of volume Label | 
; Le 8937 NAME : BBLOCK COSC$C"S-BLNJ; | string descriptor of user name 
: 276 0695 EXTERNAL LITERAL | 
3s er 0696 BOOTBLOCK_IDX : UNSIGNED (6), ! allocation table boot block index 
3 sf8 544 IDXFILE_IBx : UNSIGNED (6); ! allocation table index tile index 
; 280 0699 § BIN | 
; 281 0700 IDENT_AREA = BUFFER + FHISC_LENGTH : BBLOCK, 
; oes 44 2 MAP_AREA = BUFFER + FHISC_LENGTH + FIISC_LENGTH : BBLOCK; 
3; «284 o788 fe EXTERNAL ory vine 
; 285 0704 TIME ! get ASCII date/time string 
: 286 0705 2 CeeeKSUnD, ' compute block checksum 
3; 287 0706 READ BLOCK, ' read a block from the disk 
: 288 0707 WRITE_BLOCK; ' write block to disk 
: 289 0708 
: 290 0709 
: 291 0710 ' pares block to write is the boot block. Set up the message routine for 
: 29 0711 if e -11 and build the message. | 
: 29 Orie ! 
3 9% 71 
: 95 0714 CHSCOPY (BOOT_PROG_LEN, BOOT_PROGRAM, | 
3 96 0715 g ai sewer “MESSAGE, 
3 297 0716 5T2, 
: 298 071 CHSMOVE (. CABEL STRING e tiscsy, LENGTH] | 
> 299 0718 DSCSA “POINTERS, 
: 300 719 BUPFERTBTBST. -VOLNAME J) ; | 
3 | 
: ° 1 WRITE_BLOCK (.BOOTBLOCK_LBN, BUFFER); | 
: 304 7 5 ! Fold the file and volume owner UIC into 1 bits If the specified value 
; B 4 : is outside the 16 bit range, set it to (377,377). 


GET_TIME (DATE_TIMECO)); 
CHSFILL (0, 512, BUFFERS 


BUF FERCHM1$W_IBMAPSIZE) 
BUF FERLHM1S$L IBnapi an} 


WANANIAANNAANA ANNAN 
SSR 


NMOPIPUPIPOPURD 3 2 ee 


CHSCOPY (. LABEL 


HM1$S_VO 
(BUFFERCHT $4_VOL OWNER 
(BUF FERCHM1 $W 

BUFFERCHM1$W_ PROTECT 


Wwrornrs 


MEWN OO OODNAUE WAN -“OOONOULSWN—O 


WWWAIAI AAAI 


WWW 


BUF FERCHM1$8_LRU_LIM) 
BUF FERCHM1$L_SERTALNUM) 


CHSMOVE (13 
CHSCOPY (. 


CHSCOPY ( 


SSS NNN NSS 
PVPS BS BS BS BB BE AAAI IAIIIOnororor 


EL_STRIN 


WN — 9 ODNAUES WN (OO OONAUES WN (OOS NOUS WN OOONO 
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DATE_TIMEL 
AB 6 p 


IF -QUNER UIC <8 8> NEQ 0 
OR .OWNER“UIC<24,8> NEQ 0 
THEN 
BEGIN 
OUNER_UIC<O. B> = <1; 
OWNER-UIC<8,8> = 0; 
OWNER-UIC<16,8> = -1; 
PEER UICKES >= 0; 


Now construct and write 


the home block. 


(MAXIMUM + 4095) / 4096; 
ROT (.IDXFILE_LBN, 16); 
MAXIMUM; 


HM1$( LEVEL: 
W LENGTH «LABEL STRING CDSCSA_POINTER], 
ERCHM1$T VOLNAME); 
= .OWNER_UIC<0,8>; 
78> = .OWNER-UIC<16,8>; 
-PROTECTION; 


NDOW: 
SEXTENSION; 
“ACCESSED; 
 SERIAL_NUMBER; 


j 

DSC$W_LENGTH], sLABEL STRING CDSC$A_POINTER], 
HMTSS VOLNAN : 

SER_NAME toscs 


1$ 
CHSMOVE (HMIS$S_FORMAT, FORMAT_NAME, BUFFERCHM 
YTEOFFSET (HM1$W_CHECKSUM2) ); 


! Now write out the initial index file bitmap. The first block contains the 


36 
37 
338 
39 
40 
41 7 
: 7 
34 7 
344 7 
5 764 
46 765 
47 766 2 CHECKSUM2 (BUFFER, SBYTEOFFSET (HM1$W_CHECKSUM1)); 
# 767 2 CHECKSUM2 (BUFFER, $8 
$6 rep WRITE_BLOCK (.HOMEBLOCK1_LBN, BUFFER): 
1 770 
26 Aa reserved files marked in use; the rest are all zero. 
54 138 
55 774 2 CHSFILL 9 512, BUFFER): 
56 775 2 BUFFER<O, 32> = £8'11111': 
57 176 LBN = .JOXFILE_LBN; 
28 a WRITE_BLOCK (.CBN, BUFFER); 
re BUFFER<0,32> = 0; 
61 780 2 DECR J FROM (.MAXIMUM+4095)/4096-1 TO 1 DO 
6¢ 781 BEGIN 
782 LBN = .LBN + 1; 


4.0-742 Page 
NIT.SRCJININD1.832;1 (3), 


) 
2 5 | 
ININ ep-1984 01:46: VAX=-11 Bliss-32 V4.0-742 8 | IN 
v04- 12-808 Sep =1382 93:48:08 DISKSVMSMASTER: CINIT.SRCJININD1.832; 429 * (3) 
: 364 783 WRITE_BLOCK (.LBN, BUFFER); | : 
Paes Oh ee faa: 
; és 4 § : Construct and write the initial core image file header. | 
: 36 788 2 : 
; 20 , 3 CHSCOPY (FHISC LENGTH#FI18¢ LLENGTH+FM1SC_LENGTH, INITIAL_HEADER, | : 
. = 791 (BUFFERE Fnisi Mie ih ef § = ,OWNER_UIC<0,8>; ; 
: 37 79 cGurrent FH1SW-FILEOQWNER])<8.8> = ag QUNeR “U1C<16,85; ; 
: 374 79 FERCFH1$W_FILEPROT 3 
; 375 794 SHOVE (13, “DAT «jh rent E AREA £11$T_REVDATE : ; 
; 376 795 SMOVE (1 gyeat IDENT~AREALF11$T~CREDATEJ) F 
: 377 196 CHECKSUM? (6 UFFER: say feare SET (FH1$W_CHECKSUM) ); : 
; 8 19 WRITE_BLOCK (.LBN + 5, BUFFE ; 
: 80 799 ! Turn the header into the index file header and write it. : 
BB 7 
: 38 080 BUFFERCFH1$W_FID_NUM] = 1; : 
; 386 080 BUFFERLFHI$W-FID-~SEQ) = 1; ; 
; 385 0804 2 (IDENT_AREALFI1$0 FILENAME) <0, 32> = %RADSO_11 "INDEXF'; : 
; 386 0805 INCR J FROM BOOTBLOCK. IDX TO IDXFILE_IDXx-1 Bo : 
: 388 080 IF .ALLOC_TABLE_CNTC.JJ NEQ 0 : 
; 389 0808 THEN MAKE “POINTER (ALLOC _TABLE_CNTC.JJ, ALLOC_TABLE_LBNC.JJ, 0); 3 
BP Rg ! 
: 39 0811 2 ! Now that the basic information has been accounted for, account for : 
; pats § ' space required to keep the index file headers. This gets interresting : 
> 394 081 ! if it is necessary to generate extension headers. ; 
: 396 bes 3 
: 397 0816 2 IDXFILE_EXT_CNT = .ALLOC_TABLE_CNTCIDXFILE_IDX); F 
; 398 0817 IDXFILETEXTLBN = .ALLOC"TABLE—LBNCIDXFILE-1IDX); ; 
: 400 0819 2 IF NOT MAKE_POINTER (IDXFILE_EXT_CNT, IDXFILE_EXT_LBN, 1) : 
: 401 0820 THEN 3 
: 40 oes BEGIN ; 
3 404 08 § LOCAL BUFFER1 : BBLOCK [512]; ! temp home block storage | ; 
: 606 $838 D_BLOCK (.HOMEBLOCK1_LBN, BUFFERI); | : 
: 407 oe § BUFFER! HM1$W_S FER, $a4TE0 = HAISC EVELG: | 3 
: 408 CHECKSUM2 (BU Fre fRset” tim WW CHECKSUM1)); | ; 
: 409 0828 ¢ HECK KSUM2 (BUFF TEOF FSET Cun Suc SUM2)); ; 
; 410 8 3 WRITE_BLOCK (. SeReéLoeK! _LBN, BUFFER1 | 
; ai 1 EXTENSION FID = 1OMr INE EX EXT_FID; : 
> 41 : _AREACFM1$B_EX_R : 
: 414 MAP~AREALFM1 $W~EX—F ILNUM “3 -EXTENSION_FID; : 
: 415 MAPTAREACFMISW_EX-FILSEQ] = .EXTENSION_F ID; : 
: 416 5 MAP” AREALFM nY$B° EX"SEGNUM) = | : 
; 41 6 CHECKSUM? (BUFFER? SBYTEOFFSET ( (FH1$W_CHECKSUM)); : 
: 418 WRITE_BLOCK(.LBN + 1, BUFFER); | : 
: 420 3 bo : 


D1 
000 

Bo a 
s 6 § 4 
s 624 8 4 

; 425 844 
7. 
; 428 thd 
: 429 0848 
; 4350 0849 
>; 431 0850 
i 
> 434 085 

: 435 0854 
>; 436 0855 
3; 437 0856 
; 438 0857 
; 439 0858 
; 440 0859 
> 441 0860 
3: 44 0861 
3 (44 086 

3; 446 086 

> 445 0864 
3; 446 0865 
3; 4467 0866 
3; 4468 0867 
: 449 0868 
; 450 0869 
3 6451 0870 
3 +28 0871 
s 65 pare 
3 454 087 

; 455 0874 
; 456 0875 
: 438 a 
: 459 ee 
; 460 0879 
eit O88! 
oe 
sO 
i BF 
> 469 6 8 
; 470 Ht 
3: 471 90 
; 47 91 
3; 47 4 
: 474 9 

a i 
3; 47 0896 
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END 
UNTIL .MAP_FULL_STATUS NEQ 0; 
Mark any created index file extension headers as in use 


READ BLOCK (.IDXFILE_LBN, BUFFER) 
BUF FER<IDXFILE_EXT FID=1 -EXTENSION. FID = IDXFILE_EXT_FID> = 


WRITE_BLOCK ( C TBXFILE ath BUFFER) 
! Retrieve the primary index file header 
READ BLOCK (.LBN + 1, ans ke 


MAP_AREA FM1$W WLEX_FILNUM) = 0; 
MAP~AREALFM1$W_EX -FILSEO) = 0; 


SX'FRFFFFFF'; 


BEGIN 
CHECKSUM2 (BUFFER, ms ht td 


(FH1$W_CHECKSUM)); 
WRITE_BLOCK (.LEN'+ 1, BUFFER); 


Turn the file header into the bad block file header and write it. 


CHSF 
BUFFER ent $u 
BUFFERCFHISW~ 

M 


MAP_AREACFM1$B_INUSE) = 0; 

MAP~COUNT = 0; 

INCR J FROM 0'TO gBADBLOCK. TOTAL=1 00 

MAP_COUNT = .MAP_COUNT~+ .BADBLOCK_CNTC.J); 

NT_AREACF 11$W_F ILENAME])<0,32> = = #RADSO_11 "BADBLK'; 
FROM 0 TO <BADBLOCK_TOTAL-1 


»-MAP_AREACFM1$B8_INUSE) GTR (512 = FHISC_LENGTH = FIISC_LENGTH = FMISC_LENGTH = 4 = 2) / 2 
EN ERR_EXIT (INITS_MAXBAD); 


(0, 5 
RCEFHI = 3; 
FHISW_ = 3; 
AC 
T 
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IN 
) FERDEH]$\_F1D_NUM = .EXTENSION_FID; 
BUFFERLFHISW FID-SEQ) = .EXTENSION_FID; 
MAP AREALEM1 $8 IRUSE = 6; 
CHSFILL (0 2-FHISC_LENGTH=F11$C LENGTHOFMISC LENGTH. BUF FER+FH1$C_LENGTH+F 11$C_LENGTH*+FM1$C_LENGT 
MAP_FULL_STATUS = MAKE POINTER (IDRFILE EXT CNT? IDXFILE_EXT_LBN, 1)3 
PAE ARE ADEA SH EXP ILNON = .EXTENSION_FID # 1; 
MAP“AREALFM1$W_EX-FILSEQ) = .EXTENSION-FID + 1; 
IF  MAP_FULL_STATOS 
THEN 
BEGIN 
MAP_AR frm $¥_EX_FILNUM) = 0: 
we “AREACFM1$W_EX-FILSEQ] = 0; 
MAP arate EX_SEGNUM] = .MAP_AREACFM1$B_EX_SEGNUM] + 1; 
CHECKSUA (BUFFER, S$BYTEOFFSET (FH1$W CHECKSUM)); 
WRITE BLOCK (.LBN + .EXTENSION_FID, BOFFER); 
EXTENSION_FID = .EXTENSION_FID™+ 1; 


pn -LENGTHFI11$C_LENGTH-FMISC_LENGTH, BUFFER+FHISC_LENGTH+F11$C_LENGTH+FM1$C_LENGTH); 


; 47 97 
: oss 9 
; & 

it 9 

3; 4 : § 
:; 4 9 

; 4685 

3 4 5 
: 487 9 

: 4688 

; 489 Boe 
; 490 90 
: 691 910 
; 49 911 
; 49 aig 
: 696 91 
; 495 914 
; 496 0915 
3; 497 0916 
; 498 0917 
; 499 0918 
; 500 0919 
; 501 0920 
3 o06 0921 
; 50 09 ; 
: 504 09 

; 505 0924 
3 206 0925 
3; 3 09 $ 
; 508 09 

; 509 0928 
; 510 0929 
: Ay 0930 
3 i 0931 
;. 3 oa 74 
; 514 093 
s 515 0934 
3 3% 0935 1 


0006 O9F7 0303 9401 
0087 80FD FF74 


se $0 & 8 FH 9 


20 20 41 


Sep-1 VAX-11 Bliss-32 V 
IESteciehs Qakstd pNaddagAatERE 
MAKE ~POINTER (BADBLOCK_CNTC.JJ, BADBLOCK_LBNC.JJ, 0); 


N 
CHECK SUA2 (BUFFER. SRYTEOEFSET. (FH1$W_CHECKSUM)); 
WRITE _BLOCK (.LBN + 


} Turn the file header into the storage map file header and write it. 


4.0-742 
NiT.SRCJININD1.B32; ? 


CHSFILL (0, 512-FHIS LENGTH-F118C LLENGTH=FM1S$C_LENGTH, BUFFER+FH1SC_LENGTH+F11$C_LENGTH+FM1$C_LENGTH); 
BUFFER Huser b-Se0) = 
BUFFERCFHIS$W-FID~SEQ ; 

-AREACFM1$B_INUSE ; 
(IDENT _AREACF11$W_FILENAME])<0,32> = ZRADSO_11 ‘BITMAP’; 
MAKE_POINTER (ZREF(1), BITMAP_LBN, 0); 
MAKE-POINTER (ZREF(.BITMAP_CNT-1). ZREF(.BITMAP_LBN+1), 0); 
CHECRSUM2 (BUFFER, YTEOFFSET (FH1$W_CHECKSUM)); 
WRITE_BLOCK (.LBN + 2, BUFFER); 

the MFD header and write it 


} Turn the file header into 


: 

w 
—_ 
™~™ 
n 
= 
—_ 
of 


LL (0 - LLENGTH=F 11$C_LENGTH-FM1$C_LENGTH, BUFFER+FH1$C_LENGTH+F11$C_LENGTH+FM1$C_LENGTH); 
P_AREACFM1$B8_INUSEJ~= 0; 
BUFFER FHISW_FID_NUM) = 4; 
Sadi ret Os Ca 
s 
LOCK CBUFFERCFHI$W_RECATTR], FATSB_RTYPE) = FATSC_FIXED; 
BBLOCK CBUFFERCFHISW-RECATTRI, FATSW-RSIZE) = 
BBLOCK CBUFFERCFHISW_RECATTRJ, FATSL_EFBLK) = Rot (2. 16); 
BBLOCK CBUFFERCFH1$W-RECATTRJ, FATSL-HIBLK] = ROT (.MFD_CNT, 16); 
(IDENT_AREA fF isy. FILENAM £2) <0 ° = _1RAD50 11 900000); 
(IDENT AREACF 1 1$W~F ILENAME J) <30 RAD50_11 ' 
KE POINTER (MFD-CNT, MFD_LBN, 
CHECRSUM2 (BUFFER, S$BYTEOFFSET * Puiu _CHECKSUM)); 
WRITE_BLOCK (.LBN + 4, BUFFER); 
END; ! end of routine INIT_INDEX 
eTITLE ININD1 
TIDENT \V04-000\ 
.PSECT S$PLITS,NOWRT,NOEXE,2 
QOO1E 65C0 11C0 9200 15C6 OOAO 00000 P.AAA: .WORD 160. 5574, 512 4544, 36048 30. 7647. - ; 
BBDF FF76 905F 0000 0005 O1FB 00014 \,, 548: 50%, 3 04. -265 8, : 
A QA 0 P.AAB: .BYTE =gite : 
$0 $9 $8 20 $8 90 0 20 ASCII ’ is not a system disk\ : 
9 0 61 4 6F of Fe : 
00 OA OA op 4A .BYTE 13, 10, 10, 0 : 
3131 45 46C 49 466 43 45° «(44 aE P.AAC ASCII \DECFILE11A \ ; 
17 Mift P.AAD: .BYTE 5 : 


- 
| 


m SS 


< 
oOo 


Wo 


) -BY 

0005 00 5 3 «WORD 

01 01 6 -BYTE 

0 «WORD 

«WORD 

0 6 «WORD 

0 oA -BYTE 

8 -BYTE 

0 6C « WORD 

00000000 0000000 Bee - LONG 
00 00 8 «WORD 

00 $7 -BYTE 

0 7A «WORD 

000 O7C - WORD 

0000. 0000 0000 0000 pp0e 000 Q007E - WORD 
7A BB 00 00 3A 15. 2A Q008A -RAD50 
68 1 90092 - WORD 

001 00094 «WORD 

Bne 0096 -BYTE 

0 00088 -BYTE 

00 Bene. -BYTE 

0000 0000 Q00BA - WORD 

03 01 0008 -BYTE 

00 0 
cc 0 


BOOT_PROGRAM= 
BOOT" MESSAGE= 
FORMAT NAME= 
INITIACY -HEADER= 


OFFC 00000 
B $98 : cf 9E 000 $ MOVAB 
eS 


6A 0000" CF 


m> 


—_ 
— — 
on 
te 
num 
2 e2o 
00 
78 
—_— 
0.0 
000 
~~ 
-o 

= ~~ 
we 
Won 


to OOOO] ] ~ COOOOOOOOOOO NSO 
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oD 
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wx 
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CA 
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z= 
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me 
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INIT OPTIONS, BUFFER 

vot ta ee PROTECTION 

at WNER_UIC EXTENSION 

OND: ACCESSED 

SERIAL WURBER pDADBLOCK. TOTAL 
ALLOC TAB 
ALLOC “TABLE (BN 

BADSL OLE tert BADBLOCK_LBN 


ROMeet BEET cnf 
IDXFILE ENTS 16x FT tte wt 
MAP_CNT ae LBN 


R_NAME 
vIOXEILE, 1DX 
T_TIME, CHECKSUM 
READ_BLOCK, WRITE_BLOCK 
SCODES,NOWRT,2 
INIT Ih INDEX1, Save R2,R3,R4,R5,R6,R7,R8,R9,- 


ote. Block. R11 
B FFER Ri. 


spats S00f PROGRAM, BUFFER 


Bae Be Se Be Be Se Se Se Se Be Fe Be Be Se Ge Be Ge Ge Ge Se Ge Ge Se Be Se 


dD 6 
Ve-$ep-1986 12:85:19 DISKSVMSMASTER:CINIT SRCJININDT.B32; 1°" (39. 


0000" CF 28 2c 00 y MOVCS #40, BOOT_MESSAGE, #0, #474, (R3) ; | : 
00006 oF 00006 cf 28 1 movc3 LABEL_STRING, @LABEL_STRING+4, BUFFER+38 =; 0719) : 
A DD A PUSHL RI + 0721. : 

00006 cf DD PUSHL  BOOTBLOCK_LBN : | : 

68 2 F CALLS #2, WRITE BLOCK : | : 

00006 cr 9 TSTB WNER_UIC?1 + 0727) ; 

6 1 BNEQ : ‘ 

00006 CF 9 9 TSTB WNER_UIC+3 : 0728 | : 

9 13 0003p BEQL : : 

0000G CF OOFFOOFF &F pO OO3F 1$ MOVL  #16711935, OWNER_UIC : 0731. : 
FO AD OF 48 2$ PUSHAB DATE_TIME : 0740) : 

0000G CF 01 FB 4 CALL #i, SET Tan ; ‘ 
6E 90 2c Bee MOVC #0, (SPY, #0, #512, BUFFER g aid ‘ 

00006 CF OOOOOFFF sr C1 0058 ADDL3 #4095, MAXIMUM, RO + 0743) : 
0 00001000 ef C7 0006 DIVL3 #4096. RO, RI : ; 

6A 1 gO 006A MOVW R1, BUFFE $ . 

00006 CF 10 ¢ 006 ROTL #16, IDXFILE_LBN, BUFFER+2 + 0744 ; 
06 AA 00006 CF B80 00074 MOVW MAXIMUM, BUFFER+6 : 0745 : 
08 AA o1 BO 0007A MOVW #1, BUFFER+ : 074 : 
Oc AA = 0101 BEBO QOOTE MOVW #257, BUFFER+12 ; 074 ; 
0000G ODF 0000G CF C st MOVCS LABEL_STRING, @LABEL_STRING+4, #0, #12, - ; 0749 ‘ 
OF AA 008D BUFFER+14 : : 

1E AA 00006 CF 90 O008F MOVB OWNER_UIC, BUFFER+30 : 0750 : 
1F AA 00006 CF 90 00095 MOVB  OWNER-UIC+2, BUFFER+31 > 0751 : 
20 AA 00006 CF B80 0009B MOVW PROTECTION, BUFFER+32 : O75¢ | : 

4 AA 00006 CF BO 000A MOVW FILE PROT, BUFFER+36 : 075 : 
2CoOAA 0000G CF 90 000A7 MOVB WINDOW +44 3; 0754 : 
2D =A 00006 CF 90 SO0AD MOVB EXTENSION, BUFFER+45 : 0755 ’ 
2— «AA 00006 CF 90 000B3 MOVB ACCESSED, BUFFER+46 : 0756 ; 
01C8 CA 00006 CF DO 00089 MOVL.  SERIAL_NUMBER, BUFFER+456 : 0757 ; 
FO AD Od 28 000c0 MOVC3 #13, DATE TIME, BUFFER+60 : 0759 | : 
00006 oF 00006 CF 2c B00¢6 MOVC5 LABEL_STRING, @LABEL_STRING+4, #32, #12, - : 0761. : 
01D8 CA OOCF BUFFER+47 : ; 

00006 oF 00006 CF 2¢ 000D2 MOVCS USER NAME, @USER_NAME+4, #32, #12, - : 0763 ; 
O1E4 «CA 00008 BUFFER+4 : ; 

0000' CF C 28 O00DE MOVC3 #12, FORMAT_NAME, BUFFER+496 > 0764 ; 
A DD O00E6 PUSHL #5 : 0766 : 

A DD 000€8 PUSHL R10 : ; 

00006 CF 02 FB OOOEA ALLS We CHECKSUM2 : 3 
7E O1FE 8F 3C OOOEF MOVZWL #510, -(SP) : 0767 : 

5A DD O00F4 PUSHL F : 

00006 CF 92 FB O00F6 CALLS #2, CHECKSUM2 : | ; 
A DD 000FB PUSHL 6 > 0768 | ; 

00006 CF DD 000FD PUSHL HOMEBLOCK1_LBN : | ; 

68 $ FB 00101 CALL ue WRITE BLOCK : 3 

6E 00 2c 0104 MOVCS #0, (SP),"#0, #512, BUFFER ; 0774 | 3 

6A 1F 00 10¢ MOVL #31, BUFFER : 0775. 3 

7 00006 CF 00 0010F MOVL 1DxFILE LEN, LBN ; 0776 | : 

0480 + BB 00114 PUSHR #*M<R7,R10> : mt | : 

68 2 FB 00118 CALLS #2, WRITE_BLOCK : : 

A D4 00118 CLRL_ BUFFER ; 0779 | ; 

00006 cf 000 OFFF 8F C1 110 ADDL #409 , MAXIMUM, R2 : 780 | : 
2 1000 8F c 18 DIVL2 #4096. R2 : ; 

9 11 0012E RB 4$ : ; 


> 
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7 D6 00130 38 INCL _LBN 3: 07 ; 
0480 8F BB 001 PUSHR #*M<R7,R10> : O78s ; 
68 g FB 1 CALLS #2, WRITE_BLOCK ; : 
F4 F5 00139 4$ SOBGTR J 38 + 0780 F 
0200 8F 00 0000" CF 0066 ef 2¢ 136 MOVCS #102, INITIAL_HEADER, #0, #512, BUFFER + 0789 : 
08 AA 90006 CF 90 148 MOVB OWNER_UIC, BUFFER+8 : 0791 ; 
09 AA 006 CF 90 0014 MOVB OWNER-UIC4+2, BUFFER+9 : 19¢ ; 
OA AA 00006 CF 0134 MOVW FILE_PROT, BUFFER+10 : 079 ; 
3A OAA FO AD D 15a MOV #13,~DATE_TIME, IDENT_AREA+1 + 0794 3 
47 FO. AD D 0160 MOVC3 #13, DATE-TIME, IDENT~AREA+2 + 0795 : 
7E O1FE BF 3C 0166 MOVZ2WL #510, -(SP) : 0796 ; 
A DD 00168 PUSHL R10 : ; 
00006 CF 92 FB 0160 CALLS #2, CHECKSUM2 : : 
A DD 00172 PUSHL R16 + 0797 ; 
0S A? OF 00174 PUSHAB 5(LBN) : ; 
68 2 FB 00177 CALLS #2, WRITE BLOCK : ; 
02 AA 00010001 F DO OO17A MOVL #65537 BOFFER*2 + 0802 ; 
2E AA 23063A74_— BF 00 00182 MOVL #587610740, IDENT_AREA + 0804 ; 
52 006 01 C3 0018A SUBL3. #1, S*BOOTBLOCK_IBx, J + 0805 ; 
18 11 0018 BRA 6$ : : 
O000GCF4 D3 001 5$: TSTL ALLOC_TABLE_CNTCU + 0807 ; 
11 13 0019 BEQL 436s 6 $$ : ; 
7E D4 00197 CLRL = = (SP) + 0808 ; 
OOOOGCF4 DF 00199 PJSHAL ALLOC_TABLE_LBN Jj é . 
QOO0GCF42 DF 00195 PUSHAL ALLOC~TABLE-CNTCJJ : ; 
O000v CF 9 Fe OO1A CALLS #3, MAKE_POINTER : 3 
EO 52 000000006 BF F3 O01A8 6S: ACBLEQ M#IOXFILE~IDX-1, J, 5$ + 0805 ; 
OC AE 00000000" EF D0 00180 MOVE SALLOC TABLE CAT#<IDXFILE_IDX*4>>, - : 0816 : 
* OVL <ALL LE_LBN+<IDXFILE_IDX*4>>, = 3 3 
08 AE 00000000" EF DO 00188 " <ALLOC TABLE LB IDXFILE 4 0817 
58 01 A? 9E 001C0 MOVAB 1(R7), rs bs : 0837 ; 
01 DD 001C4 PUSHL #1 + 0819 ; 
OC AE OF 001¢6 PUSHAB IDXFILE_EXT_LBN ; F 
14 AE 9F 001C9 PUSHAB IDXFILE~EXT~CNT : : 
0000v cr 93 FB Boice CALLS 4¥ MAKE_POINTER : : 
0005 5 00104 BRW 0$ : ; 
10 AE 9F 00107 7$: PUSHAB BUFFER : 0825 : 
0000G CF ODD OO1DA PUSHL HOMEBLOCK1 _LBN : b 
0000G CF 2 FB B105 CALLS #2, READ BCOCK : 3 
1C AE 0102 BF BO OOIE MOVW #258, BUFFER1+12 > 0826 ; 
A pp 169 PUSHL #58 : 0827 : 
14 =26A F OO1EB PUSHAB BUFFER’ : : 
00006 CF 02 FB OOIE CALLS #2, CHECKSUM2 : : 
7E OTFE BEC OIE movZwL #510, =(SP) ; 0828 | ; 
14 AE OF OOTF PUSHAB BUFF R1 ; : 
00006 CF 02 FB OO1F CALLS @ CHE CKSUM2 ; ; 
10 AE OF PUSHAB BUFFER > 0829 F 
00006 CF DD PUSHL HOMEBLOCK1_LBN ; 3 
68 2 FB CALLS #2, WRITE BLOCK > Adstd 3 
56 6 D A MOVL #6, EXTENSION_FID ; 0831 : 
5C OA BG p CLRW MAP_AREA ; 08 } 3 
5E AA é 80 1 MOVW §EXTENSION_FID, MAP_AREA#2 ; : 
60 AA 6 : 14 MOVW EXTENSION FID, MAPTAREA+4 ; 08 d | ; 
7E O1FE BF 3C 00218 MOVZwL #510, -(SP) > 0836 | ; 
| 
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NIT. SRC 
R10 

#2, CHECKSUM2 

#°M<RB,R10> 

#2, WRITE _BLOCK 

EXTENSION-FID, BUFFER+2 
EXTENSION FID, BUFFER+4 


AP_AREA+ 
#0," (SP), #0, #410, BUFFER+102 


IDXFILE EXT-CNT 
#3, MAKE 


RO, MAP_AREA+2 


RO, MAP~AREA+4 
MAP_FULC_STATUS, 9$ 
MAP “AREAS 2 


A 
#510, =(SP) 

#2 CHECKSUM2 
(EXTENSION FID) CLBNI 
#2, WRITE_BLOCK 
EXTENSION-F ID 
MAP_FULL_STATUS 

8$ 

R10 

IDXFILE_LBN 

#2, REAB_BLOCK 

#-1, #5, R6, BUFFER 
R10 

IDXFILE_LBN 

#2, WRITE BLOCK 
#°M<R8,R10> 

#2, READ_BLOCK 
MAP_AREAT2 

#10, -(SP) 

#2, CHE CKSUN2 
#°M<RB,R10> 

#2, WRITE BLOCK 

#0, (SP),"#0, #410, BUFFER+102 
#196611 BUFFER®2 
MAP_AREA+ 


MAP~ COUNT 
BADBLOCK_TOTAL, R3 

“| j 

BADBLOCK_CNTCJJ, MAP_COUNT 
4241856050 

#241856620, IDENT_AREA 
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p 
JININD.B32:10 8" (3) 


See Se Se Se Se Se Se Se Fe Se Ge Se Ge Ge Se Se Ge Se Se Se Ge Ge Be Ge Se Se Be Se Se Se Fe Se Ge Fe Se Fe Se Be Be Ge Ge Be Ge Se Be Fe Fe Fe Se Fe Be Ge Fe Be Se Be 


. 
o 
. 
. 
. 
o 
+ 
o 
. 
7 
. 
o 
- 
o 
. 
. 
. 
e 
7 
a 
. 
. 
e 
+ 
oe 
. 
” 
. 
o 
+ 
o 
o 
e 
. 
eo 
+ 
o 
° 
e 
. 
oO 
. 
eo 
- 
e 
. 
° 
. 
° 
* 
o 
. 
e 
o 
o 
. 
. 
ca 
7 
e 
. 
o 
. 
eo 
. 
a 
. 
ca 
o 
a 
. 
oe 
- 
e 
. 
. 
7 
o 
. 
. 
+ 
e 
. 
. 
- 
oe 
© 
e 
. 
o 
7 
os 
. 
os 
~ 
e 
° 
Oo 
- 
o 
7 
e 
. 
o 
+ 
a 
~ 
© 
. 
o 
. 
. 


| 
| 


é 

16-Sep-1984 01:46: VAX-11 Bliss-32_ V4.0-742 Page 15 

vivant 18-Sep-19 4 93:98:98 DISKSVMSMASTER:CINIT.SRCJININD1.B32:1- > 5 
5 1 F1 MNEGL #1, J : 0893 : 
. St FF BOsk} BRB 16 : 
CA 8F 64 AA 91 F6 14$: CMPB MAP_AREA+8, #202 3 0895 | . 
D 18 O0cFB BLEQU 1 : | ; 
| 6s ‘ PB 00808 Chere et CeeSsTOP ete : 
2 : D4 oh 15$:  CLRL <-(§P) : 0897 | ; 
go0ccr 4 DF C PUSHAL BADBLOCK LENE J : : 
OOOGCF42 DF 0031 PUSHAL BADBLOCK~CNTLJ : ; 
ee teer am OF FS BOsis 1s: Robt Ss ha TAKE OUNTER : 0893 : 
3 O1FE ef 3¢ If ; MOV ZL #510, =(SP) : 0899 ; 
ALLS #2, CHECKSUM2 : : 
ote gf BD 0 5 SusHE R1 + 0900 ; 
68 5 A PB bo8sD Chitee BSC ORITE BLOCK - : 
019A —=s BF 00 6E “ + 2c $ 3 MOVC #0. (SP) #0. #410, BUFFER+102 3 0905 : 
02 AA 00020002 8F 00 0033c MOVL #131074, BUFFER+2 ; 0906 : 
64 AA 94 00344 CLRB MAP rs ; 0908 ° 
2—E AA 51780DFC F DO 00347 MOVL #1366822396, IDENT_AREA ; 0910 : 
re ae a La eee 
OC AE 01 0 00355 MOVL #1, 12TSP) ; : 
0c AF 9F 00359 PUSHAB SP : : 
0000V CF F 4 Bosey ey a MAKE _POINTER 2 p92 : 
08 AE 00006 CF = 01 c 00365 ADDLS #1, BITMAP_LBN, 8(SP) ; ; 
08 AE 00006 CF Of eS 00360 L3_ #1, BITMAP_CNT, 8(SP) : 
0000V CF 08 Og Pe gear? Hee Ee ete  AKE POINTER : : 
‘ 7E O1FE ef 3 0037¢ mOVZUL #5lo, -(SP) ; 0913 ; 
HECK : 3 
stenietgs x 4 bp 0388 an: 9914 
02 05 be oo3a0 He ieee re BLOCK : ; 
019A —sBF 00 3 86 2c 9 30 MOVC +: (SP), "#0, #410, BUFFER+102 0919 ; 
ge MA 94 00399 CLRB ss MAP. AREAS : 0920 ; 
02 AA 00040004 8F 5 9¢ MOVL #2 314 , BUFFER+2 : 0921 3 
C AA 80 fr BB 0 AG BISB2 #128, BUFFER+12 > 0923 : 
OE AA 1 Ag MOVB #1, BUFFER+14 ; 0924 : 
10 AA 10 80 O03AD mOVY aig BUFFER®I6 ; 0925 : 
16 AA 00020000 BF 0 00381 MOVL #131072, BUFFER+22 ; 0926 ; 
12. AA 00006 CF 10 9C 00389 ROTL #16, MFO CNT, BUFFER+18 : 0927 : 
AA CO4EC04 F DO 0 C MOVL #1668580 86, IDENT AREA ; 0929 : 
AA 1A7A000 F pO 003C MOVL #444203008, [DENT_AREA+4 : 0930 ; 
E D4 6 D CLRL = = (SP) > 0931 : 
0006 CF oF 03D PUSHAB MFD_LBN : : 
aD - : 4 DA CALS. BSG AKE POINTER ; : 
weeds en i 3 DF NOV ZL A3{0. - (SP) ; 0932 : 
00006 CF 2 FB 00366 CALLS #2, CHECKSUM2 : | ; 


Bests BRAN eS ln eI AES EES 
vO4=800 IEREDcH9NE Q:S8E08  YPRedIABRLRRER? Yi PZA2somanor.oses 42%" lf 


06 a BP ne PUSHAB dttow _w 
68 02 £8 CALLS” #2, WRITE BLOCK : 
0 F RE ; 0935 


; Routine Size: 1012 bytes, Routine Base: SCODE$ + 0000 


en Dat ee ea ees ade 7 
6 | 
tbs -1984 146: VAX=-11 Bliss=-32 V4.0-742 Pe 17) 
Wea een TFRs Fh 3e 0g WCMASTERCCINIS  GREDININDI.B32:0°%" CL 


Sz 
3° 


H 18 ; } ROUTINE MAKE_POINTER (COUNT, LBN, SAVE) = : 
: 520 9 8 1 te | ; 
3 1 9 1! 3 
; § Bet } } FUNCTIONAL DESCRIPTION: : 
: 4 a8 1! This routine appends retrieval pointers to the map area of the current | : 
3 5 ob ! file header describing the given count and LBN. | ‘ 
; 5 0945 1! : 
3 8 0946 1 ! CALLING SEQUENCE: 3 
; ; atk : MAKE_POINTER (ARG1, ARG2, ARG3) : 
; é 1 949 1! INPUT PARAMETERS: 3 
3 § 950 1! ARG1: address of block count 3 
3; 3 0951 1! ARG2: address of start LBN 3 
,; > 3236 1! ARGS: 0 = don't write back resulting count and LBN 3 
3 336 oe} : 1 = write back resulting count and LBN : 
; 3 0955 1 ! IMPLICIT INPUTS: : 
; 538 0956 1! BUFFER contains file header 3 
3 3o 0957 1! : 
; 540 0958 1 ! OUTPUT PARAMETERS: PY 
; 541 0959 1! NONE ; 
3 2t§ 0960 1! 3 
3; 36 0961 1 ! IMPLICIT OUTPUTS: ; 
; 544 0962 1! retrieval pointer added to header 3 
> 545 0965 1! F 
3 366 0964 1 ! ROUTINE VALUE: ‘ 
: 547 0965 1! 1 - if all went well : 
; 548 0966 1! 0 - if the map area was filled : 
; 549 0967 1! 3 
; 550 0968 1 ! SIDE EFFECTS: : 
ae +)! 0969 1! NONE F 
; 226 0970 1! 3 
Pe 0971 1 !-- F 
: 554 0972 1 3 
3 329 97 BEGIN 3 
; e28 974 3 
3 39 0975 LOCAL 3 
; 558 097 CURRENT_COUNT, ! running block count 3 
3 doF 097 CURRENT_LBN, ' running LBN 3 
; 560 0978 MAP_ARER : REF BBLOCK, ! pointer to map area $ 
3 $1 4 MAP_POINTER : REF BBLOCK; ! pointer to map area ‘ 
3 8 981 EXTERNAL 3 
3 $3 9 § BUFFER : BBLOCK; ! buffer containing file header 3 
; 9 

$ $64 985 ! Compute the address in the file header where the pointer should go. 

; 208 , § : Then determine the format of the pointer and build it. 

: 570 

; Ff 9 3 MAP_AREA = BUFFER + 2 * (.BUFFERCFHISB_MPOFFSET)); 

; 27¢ 990 2 MAP-POINTER = .MAP_AREA + FMISC_POINTERS + .MAP_AREALFM1$B_INUSE]*2; 

; 27 991 CURRENT_COUNT = ..COUNT; 

; 574 992 CURRENT_LBN = ..LBN; 


6 
TB-Sep-1984 01:46:08 WAKCIT BLise-52 v4.0-742, ag 


; 993 
; 33¢ BEGIN 
; 9 MAP_AREACFM1 NUSE] | = MAP. AREACEMISB. INUSE] + 2; 
; 399 MAP~POINTER PaTSBcnt J =~. CURRENT Nelo. », 
; 0 998 MAP" POINTERLFM1$8_ COUN Nt = MIN (.CUR RIE 1 soyaT *256) = 1; 
: 581 999 MAP~POINTERLFM1$W-LOWLBN) = - CURRENT. 
; é 1000 MAP-POINTER = .MAP_POINTER + 4; 
; 100 CURRENT_LBN = .CURRENT_LBN + MIN (.CURRENT_COUNT, 256); 
; a 1908 CURRENT-COUNT = .CURRERT_COUNT = MIN (.CURRENT_COUNT, 256); 
; 389 1808 IF -MAP_POINTER GEQA BUFFERCFH1$W_CHECKSUM] 
3 3 1908 THEN 
: 589 1007 4 BEGIN 
: 590 1008 4 IF .SAVE EQL 0 THEN RETURN 0; 
: 591 1009 4 - COUNT = - CURRENT COUNT; 
; 396 1010 4 “LBN = ,CURRENT_LBN; 
; 59 1011 4 RETURN 0: 
3; 4594 ig : 
; 595 101 
; 596 1014 
; 597 1015 NTI “CURRENT _COUNT EQL 0; 
: 336 1919 
; 600 1018 ! end of routine MAKE_POINTER 
001C 00000 MAKE_POINTER: 
-WORD Save Re cS, Bs 
50 00006 CF 9A 0000 MOVZBL BUFFER 
32 0000GCF40 3E 0000 MOVAW BUFFERCROI Ow AREA 
5 08 a2 9A 0000D MOVZBL 8(MAP_AREAS, R 
51 A A260 3 99011 MOVAW TOCRAP LAREASCROJ, MAP_POINTER 
50 4 BC dO 00016 MOVL § @COUNT; CURRENT COUNT 
54 BC p OOO1A VL. @LBN, CURRENT_LEN 
08 a2 02 80 OOO1E 18 ADDB2 #2, &(MAP_AREA) 
53 54 0 1 i 00 EXTZV &, #8, CURRENT_LBN, R3 
61 53 90 000 VB (MAP POINTER} 
53 50 DO O002A MOVL § CURRENT_COUNT, 
00000100 8 D} : D cHPL R3, ~ 
53 0100 8F ; 0 MOVZWL #256 
01 «al g1 2$: SUBB3 a3” sh cmp POINTER) 
02. Al 4 BO 0004 CUARENE -LBN. he P_POINTER) 
51 4 CO 00044 ADDL wy. HA 
54 3 C0 47 ADDL c CORRE 
29 3 4A SUBL CURRENT COUNT 
5 00006 CF i 4 MOVAB iii 
53 1 p CMPL BrATeR, R3 
F IF BLSSU - 
0c aC OD TSTL AVE 
12 1 A BEQL 5 
04 BC 50 pd 0005c MOVL § CURRENT_COUNT, @COUNT 


; Routine Size: 


601 
60 
60 


SPLITS 
SCODES 


File 
_$255$DUA28: 


4 1 
50 1 B? 


50 


113 bytes, Routine Base: S$CODES + O3F 


PSECT SUMMARY 
Bytes 


D4 
04 


4 


Attributes 


194 NOVEC,NOWRT, RD ,NOEXE,NOSHR, 


1125 NOVEC,NOWRT, RD, 


Library Statistics 


Symbols 
Total Loaded 


CSYSLIBILIB.L32;1 18619 


COMMAND QUALIFIERS 


61 


EXE,NOSHR, 


Percent 
0 


5° 
Sep-1986 12:98:15 DISKSVMSMASTERSCINIT-SRCIININD1.832:1°9 


MOVL CURRENT_LBN, @LBN 


R 
TSTL © CURRENT_COUNT 
BNEQ ~=s i$ 

MOVL #1, RO 

RET 

CLRL = RO 

RET 


-EXTRN LIBSSTOP 


LCL, REL, CON,NOP 


IC, ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 


Pages Processing 
Mapped Time 
1000 00:01.8 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$: ININD1/OBJ=OBJ$:ININD1 MSRC$: ININD1/UPDATE=(ENHS: ININD1) 


a 
oe Be 


1125 oeee + 194 data bytes 
:48. 
3 

los 28050 


293 pages 
omplete 


L EQUIPMENT CORPORATION 
ENTIAL AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS_V4.0 


DIGITA 
CONFID 


